home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Programming / yaec / modules / locale.e < prev    next >
Encoding:
Text File  |  2001-08-12  |  3.5 KB  |  30 lines
  1. OPT MODULE
  2. OPT EXPORT
  3. -> Module created with E:bin/fd2module from YAECv18 package.
  4. OPT NDDC
  5. -> --- functions in V38 or higher (Release 2.1) ---
  6. #macro CloseCatalog(catalog) IS (A0:=catalog) BUT (A6:=localebase) BUT ASM ' jsr -36(a6)'
  7. #macro CloseLocale(locale) IS (A0:=locale) BUT (A6:=localebase) BUT ASM ' jsr -42(a6)'
  8. #macro ConvToLower(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -48(a6)'
  9. #macro ConvToUpper(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -54(a6)'
  10. #macro FormatDate(locale,fmtTemplate,date,putCharFunc) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(localebase,locale,fmtTemplate,date,putCharFunc) BUT Loads(A6,A0,A1,A2,A3) BUT ASM ' jsr -60(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  11. #macro FormatString(locale,fmtTemplate,dataStream,putCharFunc) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(localebase,locale,fmtTemplate,dataStream,putCharFunc) BUT Loads(A6,A0,A1,A2,A3) BUT ASM ' jsr -66(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  12. #macro GetCatalogStr(catalog,stringNum,defaultString) IS Stores(localebase,catalog,stringNum,defaultString) BUT Loads(A6,A0,D0,A1) BUT ASM ' jsr -72(a6)'
  13. #macro GetLocaleStr(locale,stringNum) IS Stores(localebase,locale,stringNum) BUT Loads(A6,A0,D0) BUT ASM ' jsr -78(a6)'
  14. #macro IsAlNum(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -84(a6)'
  15. #macro IsAlpha(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -90(a6)'
  16. #macro IsCntrl(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -96(a6)'
  17. #macro IsDigit(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -102(a6)'
  18. #macro IsGraph(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -108(a6)'
  19. #macro IsLower(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -114(a6)'
  20. #macro IsPrint(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -120(a6)'
  21. #macro IsPunct(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -126(a6)'
  22. #macro IsSpace(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -132(a6)'
  23. #macro IsUpper(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -138(a6)'
  24. #macro IsXDigit(locale,character) IS Stores(localebase,locale,character) BUT Loads(A6,A0,D0) BUT ASM ' jsr -144(a6)'
  25. #macro OpenCatalogA(locale,name,tags) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(localebase,locale,name,tags) BUT Loads(A6,A0,A1,A2) BUT ASM ' jsr -150(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  26. #macro OpenLocale(name) IS (A0:=name) BUT (A6:=localebase) BUT ASM ' jsr -156(a6)'
  27. #macro ParseDate(locale,date,fmtTemplate,getCharFunc) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(localebase,locale,date,fmtTemplate,getCharFunc) BUT Loads(A6,A0,A1,A2,A3) BUT ASM ' jsr -162(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  28. #macro StrConvert(locale,string,buffer,bufferSize,type) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(localebase,locale,string,buffer,bufferSize,type) BUT Loads(A6,A0,A1,A2,D0,D1) BUT ASM ' jsr -174(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  29. #macro StrnCmp(locale,string1,string2,length,type) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(localebase,locale,string1,string2,length,type) BUT Loads(A6,A0,A1,A2,D0,D1) BUT ASM ' jsr -180(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  30.